#!/usr/local/bin/sbcl --script

(defun p97 ()
  (print (rem (1+ (* 28433 (expt 2 7830457))) (expt 10 10))))

(p97)
